(jka-compr-insert-file-contents): Run the

after-insert-file-functions.

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 3247042eb7e6fe03ee6308384b0dc9507a2ab7a8..768ed52eecf82818f5e0dc5ee21ff4b41d991def 100644 (file)
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -531,8 +531,15 @@ There should be no more than seven characters after the final `/'")
                                                nil
                                                uncompress-args))
                      (setq size (- (point) start))
-                     (goto-char start))
-
+                     (goto-char start)
+                     ;; Run the functions that insert-file-contents would.
+                     (let ((list after-insert-file-functions)
+                           (value size))
+                       (while list
+                         (setq value (funcall (car list) size))
+                         (if value
+                             (setq size value))
+                         (setq list (cdr list)))))
 
                  (error
                   (if (and (eq (car error-code) 'file-error)